home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Tools 4
/
Amiga Tools 4.iso
/
tools
/
mail-tools
/
thor
/
thor_2.22
/
thor.lha
/
rexx
/
aminet.thor
< prev
next >
Wrap
Text File
|
1995-11-13
|
2KB
|
64 lines
/*
$VER: 1.0 FTPget from Aminet mailing list - Patrick Delaere
email Patrick.DeLaere@hookon.be
tested with FTPGet 1.2
Your have to change ftp site and LOCAL dir to your requirements at the end of te file
Please email sugestions and enhancements
*/
options results
drop test.
drop text.
drop selected.
amitcp = 1
if ~show('l', 'rexxsupport.library') then do
check = addlib('rexxsupport.library',0,-30,0)
end
if ~show('p', 'AMITCP') then do
amitcp = 0
REQUESTNOTIFY TEXT '"AmiTCP NOT running...So you are not able download"' BT '"_Go On!|_Cancel"'
if (result = 0) then exit
end
if ~show('p', 'BBSREAD') then do
address command "run >nil: `Getenv THOR/THORPath`bin/LoadBBSREAD"
end
do while ~show('p', 'BBSREAD')
call delay(50)
end
Currentmsg stem test
address BBSREAD READBRMESSAGE bbsname test.BBSNAME confname test.confname msgnr test.msgnr HEADSTEM Head TEXTSTEM text
if index(head.subject,"Today's Aminet uploads") = 0 then do
REQUESTNOTIFY TEXT '"Not an Aminet upload list"' BT '"_OK"'
exit
end
Requestlist instem text.text outstem selected MULTISELECT DRAGSELECT TITLE '"'Head.Subject'"'
if (rc ~= 0) then exit
error = open('dwnlist','T:AminetFTP','w')
do i = 1 to selected.count
x = left(selected.i , 1)
if verify(left(selected.i , 1),'| ', 'match') then iterate i
else do
parse var selected.i file dir descrip
error = writeln('dwnlist', dir'/'file)
end
end
error = close('dwnlist')
if (amitcp=0) then do
REQUESTNOTIFY TEXT '"List for FTPGet written as T:AminetFTP"' BT '"_OK"'
exit
end
else do
REQUESTNOTIFY TEXT '"Shall I Download from AMINET ?..."' BT '"_YES|_NO"'
if(result = 0) then exit
if(result = 1) then do
/* change ftp site and LOCAL dir to your requirements */
address command 'run amitcp:bin/ftpget ftp.uni-paderborn.de CWD pub/aminet LIST T:aminetFTP LOCAL DH5:Downl/ INFO'
end
end
exit